BBS in a Box 10

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 10 / BBS In A Box Volume X (AMUG) (January 1994).bin / Files / Prog / U-Z / ViewIt 2.2 Shareware.cpt / ViewIt™ 2.2 Shareware / Projects / LS Fortran 3.0 Demos / fDemoLF.f < prev next >
MacBinary | 1993-09-20 | 4.3 KB | [TEXT/MPS ]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Freeze Frozen Compressed File `(archive/freeze)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	MathVISION Formula `(other/mathVISIONFormula)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Mon Sep 20 20:04:36 1993, modified Mon Sep 20 20:04:36 1993, creator 'MPS ', type ASCII, 3692 bytes "fDemoLF.f" , at 0xeec 428 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 66 44 65 6d 6f 4c | 46 2e 66 00 00 00 00 00 |..fDemoL|F.f.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0e 6c 00 | 00 01 ac a8 c3 f5 94 a8 |......l.|........|
|00000060| c3 f5 94 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 89 49 00 00 |........|.....I..|
|00000080| 43 20 4e 4f 54 45 3a 20 | 52 65 61 64 20 74 68 65 |C NOTE: |Read the|
|00000090| 20 22 4d 50 57 20 46 6f | 72 74 72 61 6e 73 22 20 | "MPW Fo|rtrans" |
|000000a0| 73 65 63 74 69 6f 6e 20 | 6f 66 20 22 41 62 6f 75 |section |of "Abou|
|000000b0| 74 20 43 6f 6d 70 69 6c | 65 72 73 22 0d 43 20 62 |t Compil|ers".C b|
|000000c0| 65 66 6f 72 65 20 63 6f | 6d 70 69 6c 69 6e 67 20 |efore co|mpiling |
|000000d0| 4c 46 20 70 72 6f 67 72 | 61 6d 73 20 74 68 61 74 |LF progr|ams that|
|000000e0| 20 75 73 65 20 46 61 63 | 65 57 61 72 65 20 6d 6f | use Fac|eWare mo|
|000000f0| 64 75 6c 65 73 2e 0d 0d | 43 20 46 61 63 65 49 74 |dules...|C FaceIt|
|00000100| 20 32 2e 32 20 44 65 6d | 6f 6e 73 74 72 61 74 69 | 2.2 Dem|onstrati|
|00000110| 6f 6e 20 50 72 6f 67 72 | 61 6d 0d 43 20 a9 46 61 |on Progr|am.C .Fa|
|00000120| 63 65 57 61 72 65 20 31 | 39 38 39 2d 39 33 2e 20 |ceWare 1|989-93. |
|00000130| 20 41 6c 6c 20 52 69 67 | 68 74 73 20 52 65 73 65 | All Rig|hts Rese|
|00000140| 72 76 65 64 2e 0d 43 31 | 20 2d 20 72 75 6e 20 70 |rved..C1| - run p|
|00000150| 72 6f 67 72 61 6d 20 74 | 6f 20 73 65 65 20 6f 6e |rogram t|o see on|
|00000160| 2d 6c 69 6e 65 20 63 6f | 6d 6d 65 6e 74 73 0d 0d |-line co|mments..|
|00000170| 21 21 4d 20 49 6e 6c 69 | 6e 65 73 2e 66 0d 43 32 |!!M Inli|nes.f.C2|
|00000180| 0d 21 21 49 20 46 61 63 | 65 50 72 6f 63 4c 46 2e |.!!I Fac|eProcLF.|
|00000190| 69 6e 63 0d 0d 20 20 20 | 20 20 20 50 52 4f 47 52 |inc..   |   PROGR|
|000001a0| 41 4d 20 66 44 65 6d 6f | 4c 46 0d 09 69 6d 70 6c |AM fDemo|LF..impl|
|000001b0| 69 63 69 74 20 6e 6f 6e | 65 0d 43 20 4e 4f 54 45 |icit non|e.C NOTE|
|000001c0| 3a 20 49 66 20 79 6f 75 | 20 75 73 65 20 74 68 65 |: If you| use the|
|000001d0| 20 22 21 21 47 22 20 64 | 69 72 65 63 74 69 76 65 | "!!G" d|irective|
|000001e0| 20 66 6f 72 20 70 72 65 | 63 6f 6d 70 69 6c 65 64 | for pre|compiled|
|000001f0| 20 67 6c 6f 62 61 6c 73 | 2c 20 61 64 64 0d 43 20 | globals|, add.C |
|00000200| 6f 75 72 20 46 61 63 65 | 53 74 6f 72 4c 46 2e 69 |our Face|StorLF.i|
|00000210| 6e 63 20 67 6c 6f 62 61 | 6c 73 20 74 6f 20 79 6f |nc globa|ls to yo|
|00000220| 75 72 73 20 61 6e 64 20 | 74 68 65 6e 20 72 65 6d |urs and |then rem|
|00000230| 6f 76 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6c 69 |ove foll|owing li|
|00000240| 6e 65 0d 09 69 6e 63 6c | 75 64 65 20 27 46 61 63 |ne..incl|ude 'Fac|
|00000250| 65 53 74 6f 72 4c 46 2e | 69 6e 63 27 0d 20 20 20 |eStorLF.|inc'.   |
|00000260| 20 20 20 72 65 63 6f 72 | 64 20 2f 46 61 63 65 52 |   recor|d /FaceR|
|00000270| 65 63 2f 20 66 52 65 63 | 0d 20 20 20 20 20 20 63 |ec/ fRec|.      c|
|00000280| 6f 6d 6d 6f 6e 2f 46 61 | 63 65 53 74 75 66 66 2f |ommon/Fa|ceStuff/|
|00000290| 66 52 65 63 0d 09 69 6e | 74 65 67 65 72 2a 31 20 |fRec..in|teger*1 |
|000002a0| 6b 65 79 73 28 31 36 29 | 0d 09 69 6e 74 65 67 65 |keys(16)|..intege|
|000002b0| 72 2a 32 20 69 2c 6d 6f | 64 65 0d 09 69 6e 74 65 |r*2 i,mo|de..inte|
|000002c0| 67 65 72 2a 34 20 6f 6c | 64 43 6f 75 6e 74 2c 6e |ger*4 ol|dCount,n|
|000002d0| 65 77 43 6f 75 6e 74 0d | 09 63 68 61 72 61 63 74 |ewCount.|.charact|
|000002e0| 65 72 2a 32 35 36 20 66 | 69 6c 65 4e 61 6d 65 0d |er*256 f|ileName.|
|000002f0| 43 33 0d 20 20 20 20 20 | 20 66 52 65 63 2e 75 4e |C3.     | fRec.uN|
|00000300| 61 6d 65 20 3d 20 27 66 | 44 65 6d 6f 2e 52 73 72 |ame = 'f|Demo.Rsr|
|00000310| 63 27 0d 43 34 0d 20 20 | 20 20 20 20 63 61 6c 6c |c'.C4.  |    call|
|00000320| 20 46 61 63 65 49 74 28 | 30 2c 44 6f 49 6e 69 74 | FaceIt(|0,DoInit|
|00000330| 2c 33 2c 30 2c 30 2c 30 | 29 0d 43 35 0d 09 63 61 |,3,0,0,0|).C5..ca|
|00000340| 6c 6c 20 46 61 63 65 49 | 74 28 30 2c 4e 65 77 57 |ll FaceI|t(0,NewW|
|00000350| 6e 64 2c 31 30 31 30 2c | 31 2c 30 2c 30 29 0d 09 |nd,1010,|1,0,0)..|
|00000360| 63 61 6c 6c 20 46 61 63 | 65 49 74 28 30 2c 4e 65 |call Fac|eIt(0,Ne|
|00000370| 77 57 6e 64 2c 31 30 32 | 30 2c 31 2c 30 2c 30 29 |wWnd,102|0,1,0,0)|
|00000380| 0d 43 36 0d 09 63 61 6c | 6c 20 46 61 63 65 49 74 |.C6..cal|l FaceIt|
|00000390| 28 30 2c 4e 65 77 57 6e | 64 2c 31 30 33 30 2c 31 |(0,NewWn|d,1030,1|
|000003a0| 2c 30 2c 30 29 0d 43 37 | 0d 09 63 61 6c 6c 20 46 |,0,0).C7|..call F|
|000003b0| 61 63 65 49 74 28 30 2c | 4e 65 77 57 6e 64 2c 31 |aceIt(0,|NewWnd,1|
|000003c0| 30 34 30 2c 32 2c 30 2c | 30 29 0d 43 38 0d 20 20 |040,2,0,|0).C8.  |
|000003d0| 20 20 20 20 64 6f 20 77 | 68 69 6c 65 20 28 2e 74 |    do w|hile (.t|
|000003e0| 72 75 65 2e 29 0d 20 20 | 20 20 20 20 20 20 63 61 |rue.).  |      ca|
|000003f0| 6c 6c 20 46 61 63 65 49 | 74 28 30 2c 44 6f 4c 6f |ll FaceI|t(0,DoLo|
|00000400| 6f 70 2c 30 2c 30 2c 30 | 2c 30 29 0d 43 39 0d 20 |op,0,0,0|,0).C9. |
|00000410| 20 20 20 20 20 20 20 69 | 66 20 28 66 52 65 63 2e |       i|f (fRec.|
|00000420| 75 4d 65 6e 75 49 44 20 | 3d 20 31 30 31 29 20 74 |uMenuID |= 101) t|
|00000430| 68 65 6e 0d 43 31 30 0d | 09 20 20 20 20 69 66 20 |hen.C10.|.    if |
|00000440| 28 66 52 65 63 2e 75 4d | 65 6e 75 49 74 65 6d 20 |(fRec.uM|enuItem |
|00000450| 3d 20 31 29 20 74 68 65 | 6e 0d 09 20 20 20 20 20 |= 1) the|n..     |
|00000460| 20 66 52 65 63 2e 75 53 | 74 72 69 6e 67 20 3d 20 | fRec.uS|tring = |
|00000470| 27 44 65 6d 6f 6e 73 74 | 72 61 74 69 6f 6e 20 6f |'Demonst|ration o|
|00000480| 66 20 74 68 65 20 75 73 | 65 20 6f 66 20 46 61 63 |f the us|e of Fac|
|00000490| 65 49 74 27 0d 20 20 20 | 20 20 2b 2f 2f 63 68 61 |eIt'.   |  +//cha|
|000004a0| 72 28 31 33 29 2f 2f 27 | 74 6f 20 73 75 70 70 6f |r(13)//'|to suppo|
|000004b0| 72 74 20 70 72 6f 67 72 | 61 6d 2d 77 69 64 65 20 |rt progr|am-wide |
|000004c0| 66 65 61 74 75 72 65 73 | 2e 27 0d 09 20 20 20 20 |features|.'..    |
|000004d0| 20 20 63 61 6c 6c 20 46 | 61 63 65 49 74 28 30 2c |  call F|aceIt(0,|
|000004e0| 53 68 6f 53 74 72 2c 33 | 2c 31 32 2c 28 31 20 2b |ShoStr,3|,12,(1 +|
|000004f0| 20 28 34 30 39 2a 36 35 | 35 33 36 29 29 2c 30 29 | (409*65|536)),0)|
|00000500| 0d 09 20 20 20 20 65 6e | 64 20 69 66 0d 43 31 31 |..    en|d if.C11|
|00000510| 0d 09 20 20 65 6c 73 65 | 20 69 66 20 28 66 52 65 |..  else| if (fRe|
|00000520| 63 2e 75 4d 65 6e 75 49 | 44 20 3d 20 31 30 32 29 |c.uMenuI|D = 102)|
|00000530| 20 74 68 65 6e 0d 09 20 | 20 20 20 69 66 20 28 66 | then.. |   if (f|
|00000540| 52 65 63 2e 75 4d 65 6e | 75 49 74 65 6d 20 3d 20 |Rec.uMen|uItem = |
|00000550| 36 29 20 74 68 65 6e 0d | 09 20 20 20 20 20 20 63 |6) then.|.      c|
|00000560| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 47 65 74 |all Face|It(0,Get|
|00000570| 57 56 43 2c 31 30 31 30 | 2c 30 2c 30 2c 30 29 0d |WVC,1010|,0,0,0).|
|00000580| 09 20 20 20 20 20 20 63 | 61 6c 6c 20 46 61 63 65 |.      c|all Face|
|00000590| 49 74 28 30 2c 53 61 76 | 57 6e 64 2c 31 30 31 30 |It(0,Sav|Wnd,1010|
|000005a0| 2c 30 2c 30 2c 30 29 0d | 09 20 20 20 20 20 20 63 |,0,0,0).|.      c|
|000005b0| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 47 65 74 |all Face|It(0,Get|
|000005c0| 57 56 43 2c 31 30 32 30 | 2c 30 2c 30 2c 30 29 0d |WVC,1020|,0,0,0).|
|000005d0| 09 20 20 20 20 20 20 63 | 61 6c 6c 20 46 61 63 65 |.      c|all Face|
|000005e0| 49 74 28 30 2c 53 61 76 | 57 6e 64 2c 31 30 32 30 |It(0,Sav|Wnd,1020|
|000005f0| 2c 30 2c 30 2c 30 29 0d | 09 20 20 20 20 20 20 63 |,0,0,0).|.      c|
|00000600| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 47 65 74 |all Face|It(0,Get|
|00000610| 57 56 43 2c 31 30 34 30 | 2c 30 2c 30 2c 30 29 0d |WVC,1040|,0,0,0).|
|00000620| 09 20 20 20 20 20 20 63 | 61 6c 6c 20 46 61 63 65 |.      c|all Face|
|00000630| 49 74 28 30 2c 53 61 76 | 57 6e 64 2c 31 30 34 30 |It(0,Sav|Wnd,1040|
|00000640| 2c 30 2c 30 2c 30 29 0d | 09 20 20 20 20 65 6e 64 |,0,0,0).|.    end|
|00000650| 20 69 66 0d 43 31 32 0d | 09 20 20 65 6c 73 65 20 | if.C12.|.  else |
|00000660| 69 66 20 28 28 66 52 65 | 63 2e 75 4d 65 6e 75 49 |if ((fRe|c.uMenuI|
|00000670| 44 20 3e 3d 20 31 30 35 | 29 2e 61 6e 64 2e 28 66 |D >= 105|).and.(f|
|00000680| 52 65 63 2e 75 4d 65 6e | 75 49 44 20 3c 3d 20 31 |Rec.uMen|uID <= 1|
|00000690| 30 34 30 29 29 20 74 68 | 65 6e 0d 09 20 20 20 20 |040)) th|en..    |
|000006a0| 69 66 20 28 66 52 65 63 | 2e 75 4d 65 6e 75 49 74 |if (fRec|.uMenuIt|
|000006b0| 65 6d 20 3d 20 31 29 20 | 74 68 65 6e 0d 09 20 20 |em = 1) |then..  |
|000006c0| 20 20 20 20 63 61 6c 6c | 20 53 79 73 42 65 65 70 |    call| SysBeep|
|000006d0| 28 25 76 61 6c 28 69 6e | 74 32 28 35 29 29 29 0d |(%val(in|t2(5))).|
|000006e0| 09 20 20 20 20 65 6c 73 | 65 20 69 66 20 28 66 52 |.    els|e if (fR|
|000006f0| 65 63 2e 75 4d 65 6e 75 | 49 74 65 6d 20 3d 20 32 |ec.uMenu|Item = 2|
|00000700| 29 20 74 68 65 6e 0d 09 | 20 20 20 20 20 20 63 61 |) then..|      ca|
|00000710| 6c 6c 20 53 79 73 42 65 | 65 70 28 25 76 61 6c 28 |ll SysBe|ep(%val(|
|00000720| 69 6e 74 32 28 35 29 29 | 29 0d 09 20 20 20 20 20 |int2(5))|)..     |
|00000730| 20 63 61 6c 6c 20 53 79 | 73 42 65 65 70 28 25 76 | call Sy|sBeep(%v|
|00000740| 61 6c 28 69 6e 74 32 28 | 35 29 29 29 0d 09 20 20 |al(int2(|5)))..  |
|00000750| 20 20 65 6c 73 65 20 69 | 66 20 28 66 52 65 63 2e |  else i|f (fRec.|
|00000760| 75 4d 65 6e 75 49 74 65 | 6d 20 3d 20 33 29 20 74 |uMenuIte|m = 3) t|
|00000770| 68 65 6e 0d 09 20 20 20 | 20 20 20 63 61 6c 6c 20 |hen..   |   call |
|00000780| 53 79 73 42 65 65 70 28 | 25 76 61 6c 28 69 6e 74 |SysBeep(|%val(int|
|00000790| 32 28 35 29 29 29 0d 09 | 20 20 20 20 20 20 63 61 |2(5)))..|      ca|
|000007a0| 6c 6c 20 53 79 73 42 65 | 65 70 28 25 76 61 6c 28 |ll SysBe|ep(%val(|
|000007b0| 69 6e 74 32 28 35 29 29 | 29 0d 09 20 20 20 20 20 |int2(5))|)..     |
|000007c0| 20 63 61 6c 6c 20 53 79 | 73 42 65 65 70 28 25 76 | call Sy|sBeep(%v|
|000007d0| 61 6c 28 69 6e 74 32 28 | 35 29 29 29 0d 43 31 33 |al(int2(|5))).C13|
|000007e0| 0d 09 20 20 20 20 65 6c | 73 65 20 69 66 20 28 66 |..    el|se if (f|
|000007f0| 52 65 63 2e 75 4d 65 6e | 75 49 74 65 6d 20 3d 20 |Rec.uMen|uItem = |
|00000800| 34 29 20 74 68 65 6e 0d | 09 20 20 20 20 20 20 63 |4) then.|.      c|
|00000810| 61 6c 6c 20 46 61 63 65 | 49 74 28 30 2c 47 65 74 |all Face|It(0,Get|
|00000820| 43 74 6c 2c 31 30 33 30 | 2c 30 2c 31 2c 34 29 0d |Ctl,1030|,0,1,4).|
|00000830| 09 20 20 20 20 20 20 63 | 61 6c 6c 20 46 61 63 65 |.      c|all Face|
|00000840| 49 74 28 30 2c 50 6f 70 | 4d 65 6e 2c 31 30 37 2c |It(0,Pop|Men,107,|
|00000850| 66 52 65 63 2e 63 52 65 | 63 74 28 31 29 2d 39 2c |fRec.cRe|ct(1)-9,|
|00000860| 66 52 65 63 2e 63 52 65 | 63 74 28 32 29 2d 31 30 |fRec.cRe|ct(2)-10|
|00000870| 2c 30 29 0d 43 31 34 0d | 09 20 20 20 20 65 6c 73 |,0).C14.|.    els|
|00000880| 65 20 69 66 20 28 66 52 | 65 63 2e 75 4d 65 6e 75 |e if (fR|ec.uMenu|
|00000890| 49 74 65 6d 20 3d 20 38 | 29 20 74 68 65 6e 0d 43 |Item = 8|) then.C|
|000008a0| 31 35 0d 09 09 63 61 6c | 6c 20 46 61 63 65 49 74 |15...cal|l FaceIt|
|000008b0| 28 30 2c 53 68 6f 41 6c | 74 2c 31 30 31 30 2c 30 |(0,ShoAl|t,1010,0|
|000008c0| 2c 31 2c 31 29 0d 09 09 | 6d 6f 64 65 20 3d 20 66 |,1,1)...|mode = f|
|000008d0| 52 65 63 2e 75 52 65 73 | 75 6c 74 0d 09 09 6f 6c |Rec.uRes|ult...ol|
|000008e0| 64 43 6f 75 6e 74 20 3d | 20 30 0d 09 09 69 66 20 |dCount =| 0...if |
|000008f0| 28 6d 6f 64 65 20 3e 20 | 31 29 20 74 68 65 6e 0d |(mode > |1) then.|
|00000900| 09 09 20 20 64 6f 20 77 | 68 69 6c 65 20 28 2e 74 |..  do w|hile (.t|
|00000910| 72 75 65 2e 29 0d 43 31 | 36 0d 09 09 20 20 20 20 |rue.).C1|6...    |
|00000920| 6e 65 77 43 6f 75 6e 74 | 20 3d 20 54 69 63 6b 43 |newCount| = TickC|
|00000930| 6f 75 6e 74 0d 09 09 20 | 20 20 20 69 66 20 28 6e |ount... |   if (n|
|00000940| 65 77 43 6f 75 6e 74 20 | 2d 20 6f 6c 64 43 6f 75 |ewCount |- oldCou|
|00000950| 6e 74 20 3e 20 31 38 30 | 29 20 74 68 65 6e 0d 09 |nt > 180|) then..|
|00000960| 09 20 20 20 20 20 20 63 | 61 6c 6c 20 53 79 73 42 |.      c|all SysB|
|00000970| 65 65 70 28 25 76 61 6c | 28 69 6e 74 32 28 35 29 |eep(%val|(int2(5)|
|00000980| 29 29 0d 09 09 09 6f 6c | 64 43 6f 75 6e 74 20 3d |))....ol|dCount =|
|00000990| 20 6e 65 77 43 6f 75 6e | 74 0d 09 09 20 20 20 20 | newCoun|t...    |
|000009a0| 65 6e 64 20 69 66 0d 43 | 31 37 0d 09 09 20 20 20 |end if.C|17...   |
|000009b0| 20 69 66 20 28 6d 6f 64 | 65 20 3d 20 32 29 20 74 | if (mod|e = 2) t|
|000009c0| 68 65 6e 0d 09 09 20 20 | 20 20 20 20 69 66 20 28 |hen...  |    if (|
|000009d0| 47 65 74 4e 65 78 74 45 | 76 65 6e 74 28 25 76 61 |GetNextE|vent(%va|
|000009e0| 6c 28 69 6e 74 32 28 2d | 31 29 29 2c 66 52 65 63 |l(int2(-|1)),fRec|
|000009f0| 2e 66 45 76 65 6e 74 29 | 20 3c 3e 20 30 29 20 74 |.fEvent)| <> 0) t|
|00000a00| 68 65 6e 0d 09 09 09 20 | 20 69 66 20 28 66 52 65 |hen.... | if (fRe|
|00000a10| 63 2e 66 45 76 65 6e 74 | 28 31 29 20 3d 20 35 29 |c.fEvent|(1) = 5)|
|00000a20| 20 74 68 65 6e 0d 09 09 | 09 20 20 20 20 6c 65 61 | then...|.    lea|
|00000a30| 76 65 0d 09 09 09 20 20 | 65 6c 73 65 0d 09 09 09 |ve....  |else....|
|00000a40| 20 20 20 20 63 61 6c 6c | 20 46 61 63 65 49 74 28 |    call| FaceIt(|
|00000a50| 30 2c 44 6f 45 76 6e 74 | 2c 30 2c 30 2c 30 2c 30 |0,DoEvnt|,0,0,0,0|
|00000a60| 29 0d 09 09 09 20 20 65 | 6e 64 20 69 66 0d 09 09 |)....  e|nd if...|
|00000a70| 09 65 6e 64 20 69 66 0d | 09 09 20 20 20 20 65 6e |.end if.|..    en|
|00000a80| 64 20 69 66 0d 43 31 38 | 0d 09 09 20 20 20 20 69 |d if.C18|...    i|
|00000a90| 66 20 28 6d 6f 64 65 20 | 3d 20 33 29 20 74 68 65 |f (mode |= 3) the|
|00000aa0| 6e 0d 09 09 20 20 20 20 | 20 20 63 61 6c 6c 20 47 |n...    |  call G|
|00000ab0| 65 74 4b 65 79 73 28 6b | 65 79 73 29 0d 09 09 09 |etKeys(k|eys)....|
|00000ac0| 69 66 20 28 28 42 69 74 | 54 73 74 28 6b 65 79 73 |if ((Bit|Tst(keys|
|00000ad0| 2c 25 76 61 6c 28 36 31 | 29 29 3c 3e 30 29 2e 61 |,%val(61|))<>0).a|
|00000ae0| 6e 64 2e 28 42 69 74 54 | 73 74 28 6b 65 79 73 2c |nd.(BitT|st(keys,|
|00000af0| 25 76 61 6c 28 34 38 29 | 29 3c 3e 30 29 29 20 74 |%val(48)|)<>0)) t|
|00000b00| 68 65 6e 0d 09 09 09 20 | 20 63 61 6c 6c 20 46 6c |hen.... | call Fl|
|00000b10| 75 73 68 45 76 65 6e 74 | 73 28 25 76 61 6c 28 69 |ushEvent|s(%val(i|
|00000b20| 6e 74 32 28 36 32 29 29 | 2c 25 76 61 6c 28 69 6e |nt2(62))|,%val(in|
|00000b30| 74 32 28 30 29 29 29 0d | 09 09 09 20 20 6c 65 61 |t2(0))).|...  lea|
|00000b40| 76 65 0d 09 09 09 65 6e | 64 20 69 66 0d 09 09 20 |ve....en|d if... |
|00000b50| 20 20 20 65 6e 64 20 69 | 66 0d 09 09 20 20 65 6e |   end i|f...  en|
|00000b60| 64 20 64 6f 0d 09 09 65 | 6e 64 20 69 66 0d 09 20 |d do...e|nd if.. |
|00000b70| 20 20 20 65 6e 64 20 69 | 66 0d 43 31 39 0d 09 20 |   end i|f.C19.. |
|00000b80| 20 65 6c 73 65 20 69 66 | 20 28 66 52 65 63 2e 75 | else if| (fRec.u|
|00000b90| 4d 65 6e 75 49 44 20 3d | 20 31 31 30 30 29 20 74 |MenuID =| 1100) t|
|00000ba0| 68 65 6e 0d 09 20 20 20 | 20 69 66 20 28 66 52 65 |hen..   | if (fRe|
|00000bb0| 63 2e 75 4d 65 6e 75 49 | 74 65 6d 20 3d 20 32 29 |c.uMenuI|tem = 2)|
|00000bc0| 20 74 68 65 6e 0d 09 20 | 20 20 20 20 20 69 66 20 | then.. |     if |
|00000bd0| 28 66 52 65 63 2e 66 41 | 63 74 69 76 65 57 6e 64 |(fRec.fA|ctiveWnd|
|00000be0| 20 3d 20 30 29 20 74 68 | 65 6e 0d 09 09 20 20 66 | = 0) th|en...  f|
|00000bf0| 52 65 63 2e 75 53 74 72 | 69 6e 67 20 3d 20 27 4e |Rec.uStr|ing = 'N|
|00000c00| 6f 20 57 69 6e 64 6f 77 | 27 0d 09 09 65 6c 73 65 |o Window|'...else|
|00000c10| 20 69 66 20 28 66 52 65 | 63 2e 66 41 63 74 69 76 | if (fRe|c.fActiv|
|00000c20| 65 49 44 20 3c 3e 20 31 | 32 30 30 29 20 74 68 65 |eID <> 1|200) the|
|00000c30| 6e 0d 09 09 20 20 66 52 | 65 63 2e 75 53 74 72 69 |n...  fR|ec.uStri|
|00000c40| 6e 67 20 3d 20 27 4e 6f | 6e 2d 56 69 65 77 49 74 |ng = 'No|n-ViewIt|
|00000c50| 20 57 69 6e 64 6f 77 27 | 0d 09 09 65 6c 73 65 20 | Window'|...else |
|00000c60| 69 66 20 28 66 52 65 63 | 2e 66 41 63 74 69 76 65 |if (fRec|.fActive|
|00000c70| 52 65 73 49 44 20 3d 20 | 31 32 30 34 29 20 74 68 |ResID = |1204) th|
|00000c80| 65 6e 0d 09 09 20 20 66 | 52 65 63 2e 75 53 74 72 |en...  f|Rec.uStr|
|00000c90| 69 6e 67 20 3d 20 27 48 | 65 6c 70 20 57 69 6e 64 |ing = 'H|elp Wind|
|00000ca0| 6f 77 27 0d 09 09 65 6c | 73 65 20 69 66 20 28 66 |ow'...el|se if (f|
|00000cb0| 52 65 63 2e 66 41 63 74 | 69 76 65 52 65 73 49 44 |Rec.fAct|iveResID|
|00000cc0| 20 3d 20 31 30 31 30 29 | 20 74 68 65 6e 0d 09 09 | = 1010)| then...|
|00000cd0| 20 20 66 52 65 63 2e 75 | 53 74 72 69 6e 67 20 3d |  fRec.u|String =|
|00000ce0| 20 27 45 64 69 74 6f 72 | 20 57 69 6e 64 6f 77 27 | 'Editor| Window'|
|00000cf0| 0d 09 09 65 6c 73 65 20 | 69 66 20 28 66 52 65 63 |...else |if (fRec|
|00000d00| 2e 66 41 63 74 69 76 65 | 52 65 73 49 44 20 3d 20 |.fActive|ResID = |
|00000d10| 31 30 32 30 29 20 74 68 | 65 6e 0d 09 09 20 20 66 |1020) th|en...  f|
|00000d20| 52 65 63 2e 75 53 74 72 | 69 6e 67 20 3d 20 27 43 |Rec.uStr|ing = 'C|
|00000d30| 6c 69 70 62 6f 61 72 64 | 20 57 69 6e 64 6f 77 27 |lipboard| Window'|
|00000d40| 0d 09 09 65 6c 73 65 20 | 69 66 20 28 66 52 65 63 |...else |if (fRec|
|00000d50| 2e 66 41 63 74 69 76 65 | 52 65 73 49 44 20 3d 20 |.fActive|ResID = |
|00000d60| 31 30 33 30 29 20 74 68 | 65 6e 0d 09 09 20 20 66 |1030) th|en...  f|
|00000d70| 52 65 63 2e 75 53 74 72 | 69 6e 67 20 3d 20 27 42 |Rec.uStr|ing = 'B|
|00000d80| 65 65 70 73 20 57 69 6e | 64 6f 77 27 0d 09 09 65 |eeps Win|dow'...e|
|00000d90| 6e 64 20 69 66 0d 09 09 | 63 61 6c 6c 20 46 61 63 |nd if...|call Fac|
|00000da0| 65 49 74 28 30 2c 53 65 | 74 49 74 6d 32 2c 31 30 |eIt(0,Se|tItm2,10|
|00000db0| 35 2c 31 30 2c 33 2c 30 | 29 0d 43 32 30 0d 09 20 |5,10,3,0|).C20.. |
|00000dc0| 20 20 20 65 6c 73 65 20 | 69 66 20 28 66 52 65 63 |   else |if (fRec|
|00000dd0| 2e 75 4d 65 6e 75 49 74 | 65 6d 20 3d 20 35 31 32 |.uMenuIt|em = 512|
|00000de0| 29 20 74 68 65 6e 0d 09 | 20 20 20 20 20 20 69 66 |) then..|      if|
|00000df0| 20 28 28 66 52 65 63 2e | 75 53 74 72 69 6e 67 20 | ((fRec.|uString |
|00000e00| 3d 20 27 54 45 58 54 27 | 29 2e 61 6e 64 2e 28 66 |= 'TEXT'|).and.(f|
|00000e10| 52 65 63 2e 75 52 65 73 | 75 6c 74 20 3d 20 31 29 |Rec.uRes|ult = 1)|
|00000e20| 29 20 74 68 65 6e 0d 09 | 09 20 20 66 69 6c 65 4e |) then..|.  fileN|
|00000e30| 61 6d 65 20 3d 20 66 52 | 65 63 2e 75 4e 61 6d 65 |ame = fR|ec.uName|
|00000e40| 0d 09 09 20 20 63 61 6c | 6c 20 46 61 63 65 49 74 |...  cal|l FaceIt|
|00000e50| 28 30 2c 47 65 74 43 74 | 6c 2c 31 30 31 30 2c 30 |(0,GetCt|l,1010,0|
|00000e60| 2c 31 2c 31 29 0d 09 09 | 20 20 66 52 65 63 2e 75 |,1,1)...|  fRec.u|
|00000e70| 4e 61 6d 65 20 3d 20 66 | 69 6c 65 4e 61 6d 65 0d |Name = f|ileName.|
|00000e80| 09 09 20 20 63 61 6c 6c | 20 46 61 63 65 49 74 28 |..  call| FaceIt(|
|00000e90| 66 52 65 63 2e 63 43 6f | 6e 74 72 6f 6c 2c 31 35 |fRec.cCo|ntrol,15|
|00000ea0| 35 31 2c 30 2c 31 2c 30 | 2c 30 29 20 21 4f 70 6e |51,0,1,0|,0) !Opn|
|00000eb0| 43 54 78 74 0d 09 09 65 | 6e 64 20 69 66 0d 09 20 |CTxt...e|nd if.. |
|00000ec0| 20 20 20 65 6e 64 20 69 | 66 0d 09 20 20 65 6e 64 |   end i|f..  end|
|00000ed0| 20 69 66 0d 20 20 20 20 | 20 20 65 6e 64 20 64 6f | if.    |  end do|
|00000ee0| 0d 0d 20 20 20 20 20 20 | 65 6e 64 0d 00 00 00 00 |..      |end.....|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000f10| 70 01 b0 6d dd 72 6c 0a | 4e ad 04 fa 48 6d 04 fa |p..m.rl.|N...Hm..|
|00000f20| a9 f1 70 02 b0 6d dd 72 | 6c 0a 4e ad 05 02 48 6d |..p..m.r|l.N...Hm|
|00000f30| 09 66 44 65 6d 6f 4c 46 | 2e 66 02 00 00 00 50 61 |.fDemoLF|.f....Pa|
|00000f40| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 00 |rtSITx..|........|
|00000f50| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 a9 06 e5 33 00 00 | 00 00 00 00 01 ac 41 20 |.....3..|......A |
|00000f80| 2d 20 20 65 72 72 6f 72 | 20 61 63 63 65 73 73 69 |-  error| accessi|
|00000f90| 6e 67 20 6c 6f 63 61 6c | 20 73 79 6d 62 6f 6c 20 |ng local| symbol |
|00000fa0| 74 61 62 6c 65 2e 4e 56 | 00 00 4e ba fe 36 4e 5e |table.NV|..N..6N^|
|00000fb0| 4e 75 cf 50 54 49 4d 49 | 5a 45 00 00 00 00 17 72 |Nu.PTIMI|ZE.....r|
|00000fc0| 03 80 00 02 4e 56 ff fe | 3b 6d ba 9a dd 7e 20 6d |....NV..|;m...~ m|
|00000fd0| dd 82 20 50 30 2d dd 7e | c1 fc 01 1a 12 30 00 ee |.. P0-.~|.....0..|
|00000fe0| 67 10 42 67 48 6d fe 0e | 4e ad 0e ba 1b 5f bb a2 |g.BgHm..|N...._..|
|00000ff0| 60 20 42 67 20 6d dd 82 | 20 50 30 2d dd 7e c1 fc |` Bg m..| P0-.~..|
|00001000| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 31 36 29 |...H..Mo|naco.16)|
|00001010| 0d 09 69 6e 74 65 67 65 | 72 2a 32 20 69 2c 6d 6f |..intege|r*2 i,mo|
|00001020| 64 65 0d 09 69 6e 00 06 | 00 06 00 2b 00 06 01 4a |de..in..|...+...J|
|00001030| 01 b9 00 2b 00 06 01 4a | 01 b9 a8 c3 bd 54 00 00 |...+...J|.....T..|
|00001040| 00 77 00 00 00 77 00 00 | 00 00 01 00 00 00 00 1e |.w...w..|........|
|00001050| 00 2b 00 06 01 4a 01 b9 | 00 2b 00 06 01 4a 01 b9 |.+...J..|.+...J..|
|00001060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 05 |.....n..|.n...>..|
|00001080| 39 54 05 26 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |9T.&....|.>..MPSR|
|00001090| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000010a0| 03 f0 ff ff 00 00 00 4c | 00 0b 37 f8 00 00 00 00 |.......L|..7.....|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+